;#lang racket

(define (length a-list)
  (cond
    [(empty? (rest a-list)) 1]
    [else (+ 1  (length (rest a-list)))])
  )

(define a-lst
  (cons 1
   (cons 2
    (cons 3
     (cons 4 empty)))))

(length a-lst)




